home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 September / 1987-09.d64 / double print (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  35 lines
  1. 10 rem copyright 1987 compute! publications inc. - all rights reserved
  2. 20 print"[147]  copyright 1987 compute! pub., inc."
  3. 30 printtab(9)"all rights reserved"
  4. 40 print"working.";:poke53280,0:poke53281,0
  5. 50 forx=0to254:reada:pokex+49152,a:c=c+a:print".";:next
  6. 60 ifc-32355thenprint:print"error in data":end
  7. 70 sys49152:print"[147]sys49152 [158]to activate":print"[156]  - - - - - - - - - - -"
  8. 80 print"sys49391 to shut off":end
  9. 90 data173,14,220,41,254,141,14,220,165,1
  10. 100 data41,251,133,1,169,208,133,252,169,56
  11. 110 data133,254,160,0,132,251,132,253,169,0
  12. 120 data145,253,177,251,41,128,240,2,169,192
  13. 130 data32,159,192,41,64,240,2,169,48,32
  14. 140 data159,192,41,32,240,2,169,12,32,159
  15. 150 data192,41,16,240,5,169,3,32,159,192
  16. 160 data165,254,24,105,4,133,254,169,0,145
  17. 170 data253,177,251,41,8,240,2,169,192,32
  18. 180 data159,192,41,4,240,2,169,48,32,159
  19. 190 data192,41,2,240,2,169,12,32,159,192
  20. 200 data41,1,240,5,169,3,32,159,192,165
  21. 210 data254,56,233,4,133,254,165,253,24,105
  22. 220 data1,133,253,165,254,105,0,133,254,165
  23. 230 data251,24,105,1,133,251,165,252,105,0
  24. 240 data133,252,201,212,240,10,76,28,192,17
  25. 250 data253,145,253,177,251,96,165,1,9,4
  26. 260 data133,1,173,14,220,9,1,141,14,220
  27. 270 data169,208,141,38,3,169,192,141,39,3
  28. 280 data169,30,141,24,208,162,0,169,255,157
  29. 290 data0,61,232,224,8,208,246,96,141,238
  30. 300 data192,32,202,241,173,238,192,201,33,144
  31. 310 data16,169,18,32,202,241,173,238,192,32
  32. 320 data202,241,169,146,32,202,241,96,0,169
  33. 330 data241,141,39,3,169,202,141,38,3,169
  34. 340 data21,141,24,208,96
  35.